home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DEMO_VGA / UTILEGA1.LZH / COLORS.C < prev    next >
Text File  |  1986-02-22  |  1KB  |  49 lines
  1. /*                                                                            */
  2. /*      EGA Graphic Demonstration, Turbo Pascal 3.01A, Version 10JAN86.       */
  3. /*      (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     */
  4. /*                                                                            */
  5. /*      This program will display over a hundred different colors by using    */
  6. /*      a bit color map.  Only the standard palette setting are used, if      */
  7. /*      changed, more colors could be produced (but not at the same time).    */
  8. /*                                                                            */
  9.  
  10. #include <mcega.h>
  11.  
  12. main()
  13. {
  14.   char buffer[640];
  15.  
  16.   register x,y;
  17.  
  18.   GPParms();
  19.  
  20.   GPInit();
  21.  
  22.   for (y = 0; y < GDMAXROW; y++)
  23.     {
  24.     for (x = 0; x < GDMAXCOL; x += 2)
  25.       {
  26.       buffer[x]   = y * GDMAXPAL / GDMAXROW;
  27.       buffer[x+1] = x / 40;
  28.       };
  29.  
  30.     GPMOVE(0,y);
  31.     GPWtRow(buffer,GDMAXCOL);
  32.     y++;
  33.  
  34.     for (x = 0; x < GDMAXCOL; x += 2)
  35.       {
  36.       buffer[x]   = x / 40;
  37.       buffer[x+1] = y * GDMAXPAL / GDMAXROW;
  38.       };
  39.  
  40.     GPMove(0,y);
  41.     GPWtRow(buffer,GDMAXCOL);
  42.     };
  43.  
  44.   getch();
  45.  
  46.   GPTerm();
  47.  
  48. }
  49.